(deactivate_process) [SVR4_PTYS]: If subtty is not nil, close it.

diff --git a/src/process.c b/src/process.c
index 105e055b180e7f3ac3fb1a10cee993bbf1b01222..408a2579ef08db09c0c96a8cc2ddb4259c9b7505 100644 (file)
--- a/src/process.c
+++ b/src/process.c
@@ -1524,6 +1524,10 @@ deactivate_process (proc)
       close (inchannel);
       if (outchannel >= 0 && outchannel != inchannel)
        close (outchannel);
+#ifdef SYSV4_PTYS
+      if (!NILP (p->subtty))
+        close (XINT (p->subtty));
+#endif
 #endif
 
       XSET (p->infd, Lisp_Int, -1);